HW2

台灣地圖

library(ggmap)

## Loading required package: ggplot2

library(mapproj)

## Loading required package: maps

map <- get_map(location = 'Taiwan', zoom = 7)

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=Taiwan&zoom=7&size=640x640&scale=2&maptype=terrain&language=en-EN&sensor=false

## Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=Taiwan&sensor=false

ggmap(map)

經緯度(121,23)的道路圖

map <- get_map(location = c(lon = 121, lat = 23),
               zoom = 10, language = "zh-TW", maptype = "roadmap")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=23,121&zoom=10&size=640x640&scale=2&maptype=roadmap&language=zh-TW&sensor=false

ggmap(map)

經緯度(121,23)的衛星圖

map <- get_map(location = c(lon = 121, lat = 23),
               zoom = 10, language = "zh-TW", maptype = "satellite")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=23,121&zoom=10&size=640x640&scale=2&maptype=satellite&language=zh-TW&sensor=false

ggmap(map)

經緯度(121.2,23.5)的道路圖

map <- get_map(location=c(lon=121.2,lat=23.5),
               zoom=10,language="zh-TW",maptype="roadmap")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=23.5,121.2&zoom=10&size=640x640&scale=2&maptype=roadmap&language=zh-TW&sensor=false

ggmap(map)

經緯度(121.2,23.5)的衛星圖

map <- get_map(location=c(lon=121.2,lat=23.5),
               zoom=10,language="zh-TW",maptype="satellite")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=23.5,121.2&zoom=10&size=640x640&scale=2&maptype=satellite&language=zh-TW&sensor=false

ggmap(map)